home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
faq-s.zip
/
SETUP2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-05-04
|
105KB
|
2,199 lines
function boostr (b:boolean):string;
begin
if b then boostr:='TRUE' else boostr:='FALSE';
end;
procedure writestuff (stuff:string);
var x,y:byte;
begin
x:=wherex;
y:=wherey;
textbackground (1);
textcolor (15);
gotoxy (1,24); write (' Current Setting: ');
if length(stuff)>0 then write (stuff) else write ('No Setting!');
clreol;
gotoxy (x,y);
end;
procedure writeblank;
var x,y:byte;
begin
x:=wherex;
y:=wherey;
textbackground (1);
textcolor (15);
gotoxy (1,24); clreol;
gotoxy (x,y);
end;
procedure bbsinfo;
var i,ii:integer;
page:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=938;
TEMP_SCR : array [1..938] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,
'F','u','l','l',' ','S','y','s','t','e','m',' ','N','a','m','e',#25,
#6 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,
'█',#17,' ',#16,'█','█',#17,' ',#16,'█',#11,#17,'S','y','s','t','e',
'm',' ','P','h','o','n','e',' ','#',#25,#2 ,#1 ,#16,#26,#6 ,'█',#17,
' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'S','y','s','o','p',' ','H','a','n','d','l','e',#25,
#4 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,#26,#3 ,'█',#11,#17,'S','y','s','o','p',' ','A','u','t',
'o',' ','L','o','g','i','n',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r',
'i','v','a','t','e',' ','S','y','s','t','e','m',#25,#2 ,#1 ,#16,#26,
#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'L','o','c','k','o','u','t',' ','P','a','s','s','w',
'o','r','d',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','o','w','n','l','o',
'a','d',' ','P','a','s','s','w','o','r','d',#1 ,#16,#26,#6 ,'█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'N','e','w',' ','U','s','e','r',' ','P','a','s','s','w','o','r',
'd',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,#26,#3 ,'█',#11,#17,'S','y','s','t','e','m',' ','P','a',
's','s','w','o','r','d',' ',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'S','y',
's','t','e','m',' ','2',' ','P','a','s','s','w','o','r','d',#1 ,#16,
#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
#26,#3 ,'█',#11,#17,'S','y','s','t','e','m',' ','3',' ','P','a','s',
's','w','o','r','d',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N','e','x','t',' ',
'P','a','g','e',#25,#7 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'E','x','i','t',
' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,
#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,
'O','▓',#24);
{ TheDraw Pascal Crunched Screen Image }
const
TEMP2_SCR_WIDTH=80;
TEMP2_SCR_DEPTH=23;
TEMP2_SCR_LENGTH=871;
TEMP2_SCR : array [1..871] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'U','s','e',' ','E','M','S',' ','M','e','m','o','r','y',#1 ,#16,
#26,#6 ,'█',#17,' ',#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
'█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'P','a','t','h',' ','t',
'o',' ','F','A','Q',' ','D','i','r','e','c','t','o','r','y',' ',' ',
#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',
#17,' ',#16,'█','█',#17,' ',' ',#11,'P','a','t','h',' ','t','o',' ',
'M','e','s','s','a','g','e',' ','B','a','s','e',' ',' ',#1 ,#16,'█',
'█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,#26,#3 ,'█',#11,#17,'P','a','t','h',' ','t','o',' ','D','a','t',
'a',' ','F','i','l','e','s',' ',' ',#1 ,#16,#26,#3 ,'█',#17,' ',' ',
#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P',
'a','t','h',' ','t','o',' ','B','B','S',' ','D','a','t','a',' ','F',
'i','l','e','s',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,
#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','a','t','h',' ','t','o',
' ','A','s','c','i','i',' ','U','p','l','o','a','d','s',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'P','a','t','h',' ','t','o',' ','T','e','x','t',' ',
'F','i','l','e','s',' ',#1 ,#16,#26,#4 ,'█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'P','a','t',
'h',' ','t','o',' ','N','e','t','w','o','r','k',' ','F','i','l','e',
's',#1 ,#16,'█','█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,'█','█','█',#17,' ',#11,'P','a','t','h',' ','t','o',' ',
'D','o','o','r',' ','F','i','l','e','s',#1 ,#16,#26,#5 ,'█',#17,' ',
' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',
#11,'P','r','e','v','i','o','u','s',' ','P','a','g','e',#25,#4 ,#1 ,
#16,#26,#5 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,#26,#3 ,'█',#11,#17,'E','x','i','t',' ','a','n','d',' ','S','a',
'v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,
#26,'O','▓',#24);
procedure writecurrentplace(i:integer);
begin
if page=1 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Full System Name ');
writestuff (longname);
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» System Phone # ');
writestuff (telenumber);
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Sysop Handle ');
writestuff (sysopname);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Sysop Auto Login ');
writestuff (boostr(autologin));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Private System ');
writestuff (boostr(private));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Lockout Password ');
writestuff (lockoutpw);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Download Password ');
writestuff (downloadpw);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» New User Password ');
writestuff (newuserpass);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» System Password ');
writestuff (systempassword);
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» System 2 Password ');
writestuff (system2password);
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» System 3 Password ');
writestuff (system3password);
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Next Page ');
writeblank;
end;
if i=13 then begin
gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end else if page=2 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Use EMS Memory ');
writestuff (boostr(ems));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Path to FAQ Directory ');
writestuff (faqdir);
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Path to Message Base ');
writestuff (textdir);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Path to Data Files ');
writestuff (datadir);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Path to BBS Data Files ');
writestuff (bbsdatadir);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Path to Ascii Uploads ');
writestuff (uploaddir);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Path to Text Files ');
writestuff (textfiledir);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Path to Network Files ');
writestuff (networkdir);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Path to Door Files ');
writestuff (doordir);
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Previous Page ');
writeblank;
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
page:=1;
b:=false;
repeat
if page=1 then
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
else if page=2 then
UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if page=1 then begin
if i=1 then i:=14;
end else if page=2 then begin if i=1 then i:=12; end;
i:=i-1;
end;
#80:begin
if page=1 then begin
if i=13 then i:=0;
end else if page=2 then begin if i=11 then i:=0; end;
i:=i+1;
end;
#13:begin
if page=1 then begin
case i of
1:longname:=inputinfo ('Full System Name','The Full Name of your System',longname,64);
2:telenumber:=inputinfo ('System Phone #','The Phone # of your System',telenumber,12);
3:sysopname:=inputinfo ('Sysop Handle','Your Sysop Handle',sysopname,30);
4:autologin:=inputbooinfo ('Sysop Auto Login','Skip Gateway and go right to main BBS',autologin,1);
5:private:=inputbooinfo ('Private System','Have a Private System and not allow new users',private,1);
6:lockoutpw:=inputinfo ('Lockout Password','Password to connect at restricted baud rates',lockoutpw,64);
7:downloadpw:=inputinfo ('Download Password','Password to download at restricted baud rates',downloadpw,64);
8:newuserpass:=inputinfo ('New User Pasword','Password required when users apply',newuserpass,30);
9:systempassword:=inputinfo ('System Password','Password required to login to System 1',systempassword,30);
10:system2password:=inputinfo ('System 2 Password','Password required to login to System 2',system2password,30);
11:system3password:=inputinfo ('System 3 Password','Password required to login to System 3',system3password,30);
12:begin page:=page+1; i:=1; end;
13:begin writeconfig; b:=true; end;
end;
end else if page=2 then begin
case i of
1:ems:=inputbooinfo ('Use EMS Memory','Use EMS Memory for FAQ.OVR file (overlay)',ems,1);
2:faqdir:=inputinfo ('Path to FAQ Directory','The main FAQ directory for your BBS',faqdir,64);
3:textdir:=inputinfo ('Path to Message Base','The message base files are held in this sub-directory.',textdir,64);
4:datadir:=inputinfo ('Path to Data Files','Transfer and Sub-Board data files will use this path.',datadir,64);
5:bbsdatadir:=inputinfo ('Path to BBS Data Files','Main files like the user files, and status will use this path.',bbsdatadir,
64);
6:uploaddir:=inputinfo ('Path to Ascii Uploads','All uploads to sub-boards will be created in this path.',uploaddir,64);
7:textfiledir:=inputinfo ('Path to Text Files','This directory includes the menus(optional), info-form(s), etc.',textfiledir,
64);
8:networkdir:=inputinfo ('Path to Network Files','This directory stores all the network files.',networkdir,64);
9:doordir:=inputinfo ('Path to Door Files','Batch files for doors go in this directory by default.',doordir,64);
10:begin page:=page-1; i:=1; end;
11:begin writeconfig; b:=true; end;
end;
end;
end;
end;
until (c=#27) or (b=true);
writescr (s);
end;
procedure modeminfo;
var i,ii:integer;
c:char;
page:integer;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=744;
TEMP_SCR : array [1..744] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,
'S','u','p','p','o','r','t','e','d',' ','B','a','u','d',' ','R','a',
't','e','s',#25,#2 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
'█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'D','o','w','n','l','o',
'a','d',' ','B','a','u','d',' ','R','a','t','e','s',#25,#3 ,#1 ,#16,
'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',
#16,'█','█',#17,' ',' ',#11,'D','T','E',' ','B','a','u','d',' ','R',
'a','t','e',#25,#8 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',
#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'L','o','c',
'k',' ','t','h','e',' ','C','O','M',' ','P','o','r','t',#25,#2 ,#1 ,
#16,#26,#3 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,#26,#3 ,'█',#11,#17,'C','O','M',' ','P','o','r','t',#25,#8 ,#1 ,
#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,'█','█','█',#17,' ',#11,'M','o','d','e','m',' ','T','y','p','e',
#25,#6 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'I','n','p','u','t',' ','B','u',
'f','f','e','r',#25,#4 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'O','u','t',
'p','u','t',' ','B','u','f','f','e','r',#25,#3 ,#1 ,#16,#26,#6 ,'█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
#11,#17,'N','e','x','t',' ','P','a','g','e',#25,#7 ,#1 ,#16,#26,#6 ,
'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,
'█',#11,#17,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',#25,
#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,'(',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',
#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
{ TheDraw Pascal Crunched Screen Image }
const
TEMP2_SCR_WIDTH=80;
TEMP2_SCR_DEPTH=23;
TEMP2_SCR_LENGTH=708;
TEMP2_SCR : array [1..708] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,
'#',' ','o','f',' ','R','i','n','g','s',' ','f','o','r',' ','A','n',
's','w','e','r',' ',' ',#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,
#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'O','f',
'f','h','o','o','k',' ','o','n',' ','L','o','c','a','l',' ','c','a',
'l','l',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'O','f','f','h','o',
'o','k',' ','a','f','t','e','r',' ','a',' ','c','a','l','l',#1 ,#16,
#26,#3 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
#26,#3 ,'█',#11,#17,'M','o','d','e','m',' ','S','e','t','u','p',' ',
't','e','x','t',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'M','o','d','e','m',
' ','H','a','n','g','u','p',' ','t','e','x','t',#1 ,#16,#26,#6 ,'█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
#11,#17,'D','i','a','l',' ','P','r','e','f','i','x',#25,#5 ,#1 ,#16,
#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
'█','█','█',#17,' ',#11,'D','i','a','l',' ','S','u','f','f','i','x',
#25,#5 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r','e','v','i','o','u','s',
' ','P','a','g','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,
#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'E','x','i',
't',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,#25,'(',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,
'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
procedure writecurrentplace(i:integer);
begin
if page=1 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Supported Baud Rates ');
writestuff (getbaudstr(supportedrates));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Download Baud Rates ');
writestuff (getbaudstr(downloadrates));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» DTE Baud Rate ');
writestuff (strlong(defbaudrate));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Lock the COM Port ');
writestuff (boostr(lockport));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» COM Port ');
writestuff (strr(usecom));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Modem Type ');
writestuff (strr(usrspeed));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Input Buffer ');
writestuff (strr(inbuf));
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Output Buffer ');
writestuff (strr(outbuf));
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Next Page ');
writeblank;
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end else if page=2 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» # of Rings for Answer ');
writestuff (strr(answerring));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Offhook on Local call ');
writestuff (boostr(offlocal));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Offhook after a call ');
writestuff (boostr(offcall));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Modem Setup text ');
writestuff (modemsetupstr);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Modem Hangup text ');
writestuff (modemhangupstr);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Dial Prefix ');
writestuff (modemdialprefix);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Dial Suffix ');
writestuff (modemdialsuffix);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Previous Page ');
writeblank;
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
page:=1;
b:=false;
repeat
if page=1 then
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
else if page=2 then
UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if page=1 then begin
if i=1 then i:=11;
end else if page=2 then begin if i=1 then i:=10; end;
i:=i-1;
end;
#80:begin
if page=1 then begin
if i=10 then i:=0;
end else if page=2 then begin if i=9 then i:=0; end;
i:=i+1;
end;
#13:begin
if page=1 then begin
case i of
1:baudconf (supportedrates,'S');
2:baudconf (downloadrates,'D');
3:defbaudrate:=inputintinfo ('DTE Baud Rate','Your Default Baud Rate when initializing modem',
strlong(defbaudrate),5,300,38400);
4:lockport:=inputbooinfo ('Lock the COM Port','Lock the COM Port at a 9600/19200/38400 call',
lockport,1);
5:usecom:=inputintinfo ('COM Port','The COM port your modem is hooked into',strr(usecom),1,1,4);
6:usrspeed:=inputintinfo ('Modem Type','0:Hayes/Non Hayes 1:V.32 2:HST 3:Dual Standard',
strr(usrspeed),1,0,3);
7:inbuf:=inputintinfo ('Input Buffer','Length in bytes of your modem input buffer',strr(inbuf),5,0,16384);
8:outbuf:=inputintinfo ('Output Buffer','Length in bytes of your modem output buffer',strr(inbuf),5,0,16384);
9:begin page:=page+1; i:=1; end;
10:begin writeconfig; b:=true; end;
end;
end else if page=2 then begin
case i of
1:answerring:=inputintinfo ('# of Rings for Answer','Self Explanatory',strr(answerring),3,1,100);
2:offlocal:=inputbooinfo ('Offhook on Local call','Modem will go offhook on a local sysop call',
offlocal,1);
3:offcall:=inputbooinfo ('Offhook after call','Modem will go offhook after a call so initialization won''t be interrupted',
offcall,1);
4:modemsetupstr:=inputinfo ('Modem Setup text','Text sent to the modem between callers. |:CR, ~:pause, ^x:control-char',
modemsetupstr,64);
5:modemhangupstr:=inputinfo ('Modem Hangup text','Text sent to the modem to make it hang up. |:CR, ~:pause, ^x:control-char',
modemhangupstr,64);
6:modemdialprefix:=inputinfo ('Dial Prefix','Text sent to the modem before a phone number. |:CR, ~:pause, ^x:control-char',
modemdialprefix,64);
7:modemdialsuffix:=inputinfo ('Dial Suffix','Text sent to the modem after a phone number. |:CR, ~:pause, ^x:control-char',
modemdialsuffix,64);
8:begin page:=page-1; i:=1; end;
9:begin writeconfig; b:=true; end;
end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;
procedure levels;
var i,ii:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=679;
TEMP_SCR : array [1..679] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█',
'█',' ',' ',#26,#23,'█',' ','█','█',#25,#2 ,'█','█','█',' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
'█','█',' ',' ',#11,'C','o','-','S','y','s','o','p',' ','L','e','v',
'e','l',#25,#8 ,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',' ','█',' ','█','█',
' ','█',#11,'L','o','g','o','n',' ','L','e','v','e','l',#25,#11,#1 ,
'█',' ',' ','█','█',' ','█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'M','e','s',
's','a','g','e',' ','P','o','s','t',' ','L','e','v','e','l',#1 ,#26,
#5 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'A','u','t',
'o',' ','M','e','s','s','a','g','e',' ','L','e','v','e','l',#1 ,#26,
#5 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'T','i','m',
'e',' ','R','e','s','t','r','i','c','t',' ','L','e','v','e','l',#1 ,
#26,#4 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'A','n',
'o','n','y','m','o','u','s',' ','L','e','v','e','l',#25,#5 ,#1 ,'█',
'█','█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'L','i','s',
't',' ','U','s','e','r','s',' ','L','e','v','e','l',' ',#1 ,#26,#6 ,
'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'P','C','R',' ',
'E','x','e','m','p','t',' ','L','e','v','e','l',' ',#1 ,#26,#6 ,'█',
' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'U','/','D',' ','R',
'a','t','i','o',' ','E','x','e','m','p','t',' ',' ',#1 ,#26,#5 ,'█',
' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,'█','█','█',' ',' ','█','█','█',#11,'E','x','i',
't',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#26,#6 ,'█',#25,
#2 ,'█','█','█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#26,#3 ,'█',' ',#26,#27,'█',' ',' ',#26,#3 ,'█',' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,
#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
procedure writecurrentplace (i:integer);
begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Co-Sysop Level ');
writestuff (strr(sysoplevel));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Logon Level ');
writestuff (strr(logonlevel));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Message Post Level ');
writestuff (strr(postlevel));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Auto Message Level ');
writestuff (strr(msgnextlvl));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Time Restrict Level ');
writestuff (strr(timerestlvl));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Anonymous Level ');
writestuff (strr(anonymouslevel));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» List Users Level ');
writestuff (strr(listuserlvl));
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» PCR Exempt Level ');
writestuff (strr(pcrexempt));
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» U/D Ratio Exempt Level ');
writestuff (strr(udexempt));
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
b:=false;
repeat
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if i=1 then i:=11;
i:=i-1;
end;
#80:begin
if i=10 then i:=0;
i:=i+1;
end;
#13:begin
case i of
1:sysoplevel:=inputintinfo ('Co-Sysop Level','The Security Level for a Co-Sysop',strr(sysoplevel),
5,1,32767);
2:logonlevel:=inputintinfo ('Logon Level','The Security Level for a user to get the system password',strr(logonlevel),
5,1,32767);
3:postlevel:=inputintinfo ('Message Post Level','Level to post a message',strr(postlevel),5,1,32767);
4:msgnextlvl:=inputintinfo ('Auto Message Level','Level to leave an auto message',strr(msgnextlvl),5,1,32767);
5:timerestlvl:=inputintinfo ('Time Restrict Level','Level to call BBS at restricted hours',strr(timerestlvl),5,1,32767);
6:anonymouslevel:=inputintinfo ('Anonymous Level','Level to see the real names of Anonymous Posters',strr(anonymouslevel),
5,1,32767);
7:listuserlvl:=inputintinfo ('List Users Level','Level to list users',strr(listuserlvl),5,1,32767);
8:pcrexempt:=inputintinfo ('PCR Exempt Level','Level to be exempt from Post Call Ratio(s)',
strr(pcrexempt),5,1,32767);
9:udexempt:=inputintinfo ('U/D Ratio Exempt Level','Level to be exempt from U/D Ratio(s)',
strr(udexempt),5,1,32767);
10:begin writeconfig; b:=true; end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;
procedure colors;
var i,ii:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=908;
TEMP_SCR : array [1..908] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,'█','█','█',#17,' ',#16,#26,#19,'█',#17,' ',
#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',
' ',#16,'█','█','█',#11,#17,'N','o','r','m','a','l',' ','C','o','l',
'o','r',#25,#9 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,
'█','█','█',#17,' ',' ',#16,'█','█','█',#11,#17,'T','o','p',' ','S',
'p','l','i','t',' ','C','o','l','o','r',#25,#6 ,#1 ,#16,'█','█',#17,
#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',
' ',#11,'O','u','t','p','u','t','-','L','o','c','k',' ','C','o','l',
'o','r',#25,#5 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',
#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'S','p','l','i',
't','-','L','i','n','e',' ','C','o','l','o','r',#25,#5 ,#1 ,#16,'█',
'█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,#26,#3 ,'█',#11,#17,'S','t','a','t','u','s',' ','L','i','n','e',
' ','C','o','l','o','r',#25,#4 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,
#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',
#11,'D','e','f','a','u','l','t',' ','C','o','l','o','r',' ','#','1',
#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','e','f','a','u','l',
't',' ','C','o','l','o','r',' ','#','2',#25,#5 ,#1 ,#16,'█','█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'D','e','f','a','u','l','t',' ','C','o','l','o','r',' ','#','3',
#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,#26,#3 ,'█',#11,#17,'D','e','f','a','u','l','t',' ','C',
'o','l','o','r',' ','#','4',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','e',
'f','a','u','l','t',' ','C','o','l','o','r',' ','#','5',#25,#5 ,#1 ,
#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
#26,#3 ,'█',#11,#17,'D','e','f','a','u','l','t',' ','C','o','l','o',
'r',' ','#','6',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'E','x','i','t',
' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,
#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,
'O','▓',#24,#26,'O','▓',#24);
procedure writecurrentplace (i:integer);
begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Normal Color ');
writestuff (strr(normbotcolor));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Top Split Color ');
writestuff (strr(normtopcolor));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Output-Lock Color ');
writestuff (strr(outlockcolor));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Split-Line Color ');
writestuff (strr(splitcolor));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Status Line Color ');
writestuff (strr(statlinecolor));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Default Color #1 ');
writestuff (strr(defcolor1));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Default Color #2 ');
writestuff (strr(defcolor2));
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Default Color #3 ');
writestuff (strr(defcolor3));
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Default Color #4 ');
writestuff (strr(defcolor4));
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Default Color #5 ');
writestuff (strr(defcolor5));
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Default Color #6 ');
writestuff (strr(defcolor6));
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
b:=false;
repeat
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if i=1 then i:=13;
i:=i-1;
end;
#80:begin
if i=12 then i:=0;
i:=i+1;
end;
#13:begin
case i of
1:normbotcolor:=colorconf (normbotcolor,false);
2:normtopcolor:=colorconf (normtopcolor,false);
3:outlockcolor:=colorconf (outlockcolor,false);
4:splitcolor:=colorconf (splitcolor,false);
5:statlinecolor:=colorconf (statlinecolor,false);
6:defcolor1:=colorconf (defcolor1,true);
7:defcolor2:=colorconf (defcolor2,true);
8:defcolor3:=colorconf (defcolor3,true);
9:defcolor4:=colorconf (defcolor4,true);
10:defcolor5:=colorconf (defcolor5,true);
11:defcolor6:=colorconf (defcolor6,true);
12:begin writeconfig; b:=true; end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;
procedure conf;
var i,ii:integer;
page:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=982;
TEMP_SCR : array [1..982] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'U','s','e',' ','C','o','n','f','e','r','e','n','c','e','s',#25,
#6 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',
#17,' ',' ',#16,'█','█','█',#11,#17,'C','o','n','f','.',' ','#','1',
' ','M','e','s','s','a','g','e',' ','N','a','m','e',' ',#1 ,#16,'█',
'█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',
#17,' ',' ',#11,'C','o','n','f','.',' ','#','1',' ','X','f','e','r',
' ','N','a','m','e',#25,#4 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,
#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'C',
'o','n','f','.',' ','#','2',' ','M','e','s','s','a','g','e',' ','N',
'a','m','e',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f',
'.',' ','#','2',' ','X','f','e','r',' ','N','a','m','e',#25,#3 ,#1 ,
#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',
#17,' ',#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',' ','#','3',
' ','M','e','s','s','a','g','e',' ','N','a','m','e',' ',#1 ,#16,'█',
'█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','3',' ','X','f',
'e','r',' ','N','a','m','e',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
'n','f','.',' ','#','4',' ','M','e','s','s','a','g','e',' ','N','a',
'm','e',' ',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','4',
' ','X','f','e','r',' ','N','a','m','e',#25,#3 ,#1 ,#16,'█','█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'C','o','n','f','.',' ','#','5',' ','M','e','s','s','a','g','e',
' ','N','a','m','e',' ',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',
' ','#','5',' ','X','f','e','r',' ','N','a','m','e',#25,#3 ,#1 ,#16,
'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'N','e','x','t',' ','P','a','g','e',#25,#7 ,#1 ,#16,
#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
'█','█','█',#17,' ',#11,'E','x','i','t',' ','a','n','d',' ','S','a',
'v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24);
{ TheDraw Pascal Crunched Screen Image }
const
TEMP2_SCR_WIDTH=80;
TEMP2_SCR_DEPTH=23;
TEMP2_SCR_LENGTH=964;
TEMP2_SCR : array [1..964] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'C','o','n','f','.',' ','#','1',' ','M','e','s','s','a','g','e',
' ','P','W',#25,#2 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',
' ','#','1',' ','X','f','e','r',' ','P','W',#25,#6 ,#1 ,#16,'█',#17,
' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█',
'█',#17,' ',' ',#11,'C','o','n','f','.',' ','#','2',' ','M','e','s',
's','a','g','e',' ','P','W',#25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,
'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'C','o','n','f','.',' ','#','2',' ','X','f','e','r',' ','P','W',
#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,
' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',
' ','#','3',' ','M','e','s','s','a','g','e',' ','P','W',#25,#2 ,#1 ,
#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','3',' ',
'X','f','e','r',' ','P','W',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
'n','f','.',' ','#','4',' ','M','e','s','s','a','g','e',' ','P','W',
#25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','4',' ',
'X','f','e','r',' ','P','W',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
'n','f','.',' ','#','5',' ','M','e','s','s','a','g','e',' ','P','W',
#25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','5',' ',
'X','f','e','r',' ','P','W',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r',
'e','v','i','o','u','s',' ','P','a','g','e',#25,#3 ,#1 ,#16,#26,#6 ,
'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,
'█',#11,#17,'N','e','x','t',' ','P','a','g','e',#25,#7 ,#1 ,#16,#26,
#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█',
'█','█',#17,' ',#11,'E','x','i','t',' ','a','n','d',' ','S','a','v',
'e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,
#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,' ',
' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24);
{ TheDraw Pascal Crunched Screen Image }
const
TEMP3_SCR_WIDTH=80;
TEMP3_SCR_DEPTH=23;
TEMP3_SCR_LENGTH=930;
TEMP3_SCR : array [1..930] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'C','o','n','f','.',' ','#','1',' ','M','e','s','s','a','g','e',
' ','D','e','f','.',' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'C','o','n','f',
'.',' ','#','1',' ','X','f','e','r',' ','D','e','f','.',#25,#4 ,#1 ,
#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,
' ',#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',' ','#','2',' ',
'M','e','s','s','a','g','e',' ','D','e','f','.',' ',#1 ,#16,'█','█',
#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','2',' ','X','f','e',
'r',' ','D','e','f','.',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,
#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',
#11,'C','o','n','f','.',' ','#','3',' ','M','e','s','s','a','g','e',
' ','D','e','f','.',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,
' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
'n','f','.',' ','#','3',' ','X','f','e','r',' ','D','e','f','.',#25,
#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,
' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','4',' ','M',
'e','s','s','a','g','e',' ','D','e','f','.',' ',#1 ,#16,'█','█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'C','o','n','f','.',' ','#','4',' ','X','f','e','r',' ','D','e',
'f','.',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,
#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#',
'5',' ','M','e','s','s','a','g','e',' ','D','e','f','.',' ',#1 ,#16,
'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','5',' ','X','f','e','r',
' ','D','e','f','.',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r','e','v',
'i','o','u','s',' ','P','a','g','e',#25,#8 ,#1 ,#16,'█','█',#17,' ',
' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',
#11,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,
#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,
#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
procedure writecurrentplace(i:integer);
begin
if page=1 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Use Conferences ');
writestuff (boostr(useconf));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Conf. #1 Message Name ');
writestuff (confm[1]);
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Conf. #1 Xfer Name ');
writestuff (confx[1]);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Conf. #2 Message Name ');
writestuff (confm[2]);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Conf. #2 Xfer Name ');
writestuff (confx[2]);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Conf. #3 Message Name ');
writestuff (confm[3]);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Conf. #3 Xfer Name ');
writestuff (confx[3]);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Conf. #4 Message Name ');
writestuff (confm[4]);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Conf. #4 Xfer Name ');
writestuff (confx[4]);
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Conf. #5 Message Name ');
writestuff (confm[5]);
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Conf. #5 Xfer Name ');
writestuff (confx[5]);
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Next Page ');
writeblank;
end;
if i=13 then begin
gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end else if page=2 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Conf. #1 Message PW ');
writestuff (confmpw[1]);
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Conf. #1 Xfer PW ');
writestuff (confxpw[1]);
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Conf. #2 Message PW ');
writestuff (confmpw[2]);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Conf. #2 Xfer PW ');
writestuff (confxpw[2]);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Conf. #3 Message PW ');
writestuff (confmpw[3]);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Conf. #3 Xfer PW ');
writestuff (confxpw[3]);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Conf. #4 Message PW ');
writestuff (confmpw[4]);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Conf. #4 Xfer PW ');
writestuff (confxpw[4]);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Conf. #5 Message PW ');
writestuff (confmpw[5]);
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Conf. #5 Xfer PW ');
writestuff (confxpw[5]);
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Previous Page ');
writeblank;
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Next Page ');
writeblank;
end;
if i=13 then begin
gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end else if page=3 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Conf. #1 Message Def. ');
writestuff (boostr(defconfm[1]));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Conf. #1 Xfer Def. ');
writestuff (boostr(defconfx[1]));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Conf. #2 Message Def. ');
writestuff (boostr(defconfm[2]));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Conf. #2 Xfer Def. ');
writestuff (boostr(defconfx[2]));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Conf. #3 Message Def. ');
writestuff (boostr(defconfm[3]));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Conf. #3 Xfer Def. ');
writestuff (boostr(defconfx[3]));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Conf. #4 Message Def. ');
writestuff (boostr(defconfm[4]));
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Conf. #4 Xfer Def. ');
writestuff (boostr(defconfx[4]));
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Conf. #5 Message Def. ');
writestuff (boostr(defconfm[5]));
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Conf. #5 Xfer Def. ');
writestuff (boostr(defconfx[5]));
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Previous Page ');
writeblank;
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
page:=1;
b:=false;
repeat
if page=1 then
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
else if page=2 then
UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH)
else if page=3 then
UNCRUNCH(TEMP3_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP3_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if page=1 then begin
if i=1 then i:=14;
end else if page=2 then begin if i=1 then i:=14; end else
if page=3 then begin if i=1 then i:=13; end;
i:=i-1;
end;
#80:begin
if page=1 then begin
if i=13 then i:=0;
end else if page=2 then begin if i=13 then i:=0; end else
if page=3 then begin if i=12 then i:=0; end;
i:=i+1;
end;
#13:begin
if page=1 then begin
case i of
1:useconf:=inputbooinfo ('Use Conferences','If not then FAQ will only use the Main Conference',useconf,1);
2:confm[1]:=inputinfo ('Conf. #1 Message Name','Name of Conference #1 for the Message Section',confm[1],64);
3:confx[1]:=inputinfo ('Conf. #1 Xfer Name','Name of Conference #1 for the Xfer Section',confx[1],64);
4:confm[2]:=inputinfo ('Conf. #2 Message Name','Name of Conference #2 for the Message Section',confm[2],64);
5:confx[2]:=inputinfo ('Conf. #2 Xfer Name','Name of Conference #2 for the Xfer Section',confx[2],64);
6:confm[3]:=inputinfo ('Conf. #3 Message Name','Name of Conference #3 for the Message Section',confm[3],64);
7:confx[3]:=inputinfo ('Conf. #3 Xfer Name','Name of Conference #3 for the Xfer Section',confx[3],64);
8:confm[4]:=inputinfo ('Conf. #4 Message Name','Name of Conference #4 for the Message Section',confm[4],64);
9:confx[4]:=inputinfo ('Conf. #4 Xfer Name','Name of Conference #4 for the Xfer Section',confx[4],64);
10:confm[5]:=inputinfo ('Conf. #5 Message Name','Name of Conference #5 for the Message Section',confm[5],64);
11:confx[5]:=inputinfo ('Conf. #5 Xfer Name','Name of Conference #5 for the Xfer Section',confx[5],64);
12:begin page:=page+1; i:=1; end;
13:begin writeconfig; b:=true; end;
end;
end else if page=2 then begin
case i of
1:confmpw[1]:=inputinfo ('Conf. #1 Message PW','PW for Conference #1 for the Message Section',confmpw[1],30);
2:confxpw[1]:=inputinfo ('Conf. #1 Xfer PW','PW for Conference #1 for the Xfer Section',confxpw[1],30);
3:confmpw[2]:=inputinfo ('Conf. #2 Message PW','PW for Conference #2 for the Message Section',confmpw[2],30);
4:confxpw[2]:=inputinfo ('Conf. #2 Xfer PW','PW for Conference #2 for the Xfer Section',confxpw[2],30);
5:confmpw[3]:=inputinfo ('Conf. #3 Message PW','PW for Conference #3 for the Message Section',confmpw[3],30);
6:confxpw[3]:=inputinfo ('Conf. #3 Xfer PW','PW for Conference #3 for the Xfer Section',confxpw[3],30);
7:confmpw[4]:=inputinfo ('Conf. #4 Message PW','PW for Conference #4 for the Message Section',confmpw[4],30);
8:confxpw[4]:=inputinfo ('Conf. #4 Xfer PW','PW for Conference #4 for the Xfer Section',confxpw[4],30);
9:confmpw[5]:=inputinfo ('Conf. #5 Message PW','PW for Conference #5 for the Message Section',confmpw[5],30);
10:confxpw[5]:=inputinfo ('Conf. #5 Xfer PW','PW for Conference #5 for the Xfer Section',confxpw[5],30);
11:begin page:=page-1; i:=1; end;
12:begin page:=page+1; i:=1; end;
13:begin writeconfig; b:=true; end;
end;
end else if page=3 then begin
case i of
1:defconfm[1]:=inputbooinfo ('Conf. #1 Message Def.','Def. Access for Conference #1 for the Message Section',defconfm[1],1);
2:defconfx[1]:=inputbooinfo ('Conf. #1 Xfer Def.','Def. Access for Conference #1 for the Xfer Section',defconfx[1],1);
3:defconfx[2]:=inputbooinfo ('Conf. #2 Message Def.','Def. Access for Conference #2 for the Message Section',defconfm[2],1);
4:defconfx[2]:=inputbooinfo ('Conf. #2 Xfer Def.','Def. Access for Conference #2 for the Xfer Section',defconfx[2],1);
5:defconfx[3]:=inputbooinfo ('Conf. #3 Message Def.','Def. Access for Conference #3 for the Message Section',defconfm[3],1);
6:defconfx[3]:=inputbooinfo ('Conf. #3 Xfer Def.','Def. Access for Conference #3 for the Xfer Section',defconfx[3],1);
7:defconfx[4]:=inputbooinfo ('Conf. #4 Message Def.','Def. Access for Conference #4 for the Message Section',defconfm[4],1);
8:defconfx[4]:=inputbooinfo ('Conf. #4 Xfer Def.','Def. Access for Conference #4 for the Xfer Section',defconfx[4],1);
9:defconfx[5]:=inputbooinfo ('Conf. #5 Message Def.','Def. Access for Conference #5 for the Message Section',defconfm[5],1);
10:defconfx[5]:=inputbooinfo ('Conf. #5 Xfer Def.','Def. Access for Conference #5 for the Xfer Section',defconfx[5],1);
11:begin page:=page-1; i:=1; end;
12:begin writeconfig; b:=true; end;
end;
end;
end;
end;
until (c=#27) or (b=true);
writescr (s);
end;
procedure netinfo;
var i,ii:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=928;
TEMP_SCR : array [1..928] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'U','s','e',' ','C','e','l','e','r','i','t','y','N','e','t',#25,
#6 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',
#17,' ',' ',#16,'█','█','█',#11,#17,'N','e','t','w','o','r','k',' ',
'#',#25,#12,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',
#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'N','e','t','w','o','r','k',
' ','P','a','s','s','w','o','r','d',#25,#6 ,#1 ,#16,'█',#17,' ',' ',
#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,
' ',' ',#11,'N','e','t','w','o','r','k',' ','O','r','i','g','i','n',
' ','L','i','n','e',#25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',
#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N',
'e','t','w','o','r','k',' ','T','i','m','e',' ','B','e','g','i','n',
#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,
' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'N','e','t','w','o',
'r','k',' ','T','i','m','e',' ','E','n','d',#25,#5 ,#1 ,#16,'█','█',
#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
#26,#3 ,'█',#11,#17,'H','o','s','t',' ','P','h','o','n','e',' ','N',
'u','m','b','e','r',#25,#4 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'E','x','t','e',
'n','d','e','r',#25,#13,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N','e','t',' ','M',
'e','s','s','a','g','e','s',#25,#9 ,#1 ,#16,'█','█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N','e',
't',' ','B','B','S',' ','L','i','s','t',#25,#9 ,#1 ,#16,'█','█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'N','e','t',' ','R','u','m','o','r','s',#25,#11,#1 ,#16,'█','█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
#11,#17,'N','e','t',' ','N','e','w','s',#25,#8 ,#1 ,#16,#26,#6 ,'█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',
#17,' ',#11,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',#25,
#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,
#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(',
'▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24);
procedure writecurrentplace (i:integer);
begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Use CelerityNet ');
writestuff (boostr(usenet));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Network # ');
writestuff (strr(netnum));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Network Password ');
writestuff (netpas);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Network Origin Line ');
writestuff (netcomment);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Network Time Begin ');
writestuff (netstart);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Network Time End ');
writestuff (netend);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Host Phone Number ');
writestuff (hostphone);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Extender ');
writestuff (extender);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Net Messages ');
writestuff (boostr(featurea));
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Net BBS List ');
writestuff (boostr(featured));
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Net Rumors ');
writestuff (boostr(featuree));
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Net News ');
writestuff (boostr(featuref));
end;
if i=13 then begin
gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
b:=false;
repeat
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if i=1 then i:=14;
i:=i-1;
end;
#80:begin
if i=13 then i:=0;
i:=i+1;
end;
#13:begin
case i of
1:usenet:=inputbooinfo ('Use CelerityNet','Use the CelerityNetworking System',usenet,1);
2:netnum:=inputintinfo ('Network Number','Your Network Number - Obtain from CelerityNet Support Systems',
strr(netnum),5,1,32767);
3:netpas:=inputinfo ('Network Password','Encoding Password for CelerityNet',netpas,30);
4:netcomment:=inputinfo ('Network Origin Line','Text to be printed out on all net posts originating here',
netcomment,64);
5:netstart:=inputinfo ('Network Time Begin','Time for CelerityNet to start calling Host - xx:xx a/pm',netstart,8);
6:netend:=inputinfo ('Network Time End','Time for CelerityNet to stop calling Host - xx:xx a/pm',netend,8);
7:hostphone:=inputinfo ('Host Phone Number','The Number to the Host system of CelerityNet xxx-xxx-xxxx',
hostphone,12);
8:extender:=inputinfo ('Extender','The Extender for calling the Host - Usually ''1''',extender,64);
9:featurea:=inputbooinfo ('Net Messages','Use the Net Messages Feature',featurea,1);
10:featured:=inputbooinfo ('Net BBS List','Use the Net BBS List Feature',featured,1);
11:featuree:=inputbooinfo ('Net Rumors','Use the Net Rumors',featuree,1);
12:featuref:=inputbooinfo ('Net News','Use the Net News Feature',featuref,1);
13:begin writeconfig; b:=true; end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;
procedure nuv;
var i,ii:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=734;
TEMP_SCR : array [1..734] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'U','s','e',' ','N','e','w',' ','U','s','e','r',' ','V','o','t',
'i','n','g',#25,#2 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,
#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,#17,'N','U','V',' ',
'R','e','q','u','i','r','e','d',' ','L','e','v','e','l',#25,#3 ,#1 ,
#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,
'█','█',#17,' ',' ',#11,'A','u','t','o','m','a','t','e','d',' ','N',
'U','V',' ',#25,#8 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
'█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'N','U','V',
' ','Y','e','s',' ','V','o','t','e','s',#25,#8 ,#1 ,#16,'█','█',#17,
' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'N','U','V',' ','N','o',' ','V','o','t','e','s',#25,
#9 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',
#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'N','U','V',' ','M','a',
'i','n',' ','L','e','v','e','l',#25,#7 ,#1 ,#16,'█','█',#17,' ',' ',
#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
#11,#17,'N','U','V',' ','F','i','l','e',' ','L','e','v','e','l',#25,
#7 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,
' ',#16,#26,#3 ,'█',#11,#17,'N','U','V',' ','F','i','l','e',' ','P',
'o','i','n','t','s',#25,#6 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'E','x','i',
't',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',
#17,#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,
#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,
'O','▓',#24);
procedure writecurrentplace (i:integer);
begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Use New User Voting ');
writestuff (boostr(usenuv));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» NUV Required Level ');
writestuff (strr(newvotelvl));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Automated NUV ');
writestuff (boostr(autonuv));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» NUV Yes Votes ');
writestuff (strr(valnu));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» NUV No Votes ');
writestuff (strr(delnu));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» NUV Main Level ');
writestuff (strr(volvl));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» NUV File Level ');
writestuff (strr(voflvl));
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» NUV File Points ');
writestuff (strr(vofps));
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
b:=false;
repeat
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if i=1 then i:=10;
i:=i-1;
end;
#80:begin
if i=9 then i:=0;
i:=i+1;
end;
#13:begin
case i of
1:usenuv:=inputbooinfo ('Use New User Voting','Use the New User Voting System',usenuv,1);
2:newvotelvl:=inputintinfo ('NUV Required Level','Level Required to Vote',strr(newvotelvl),5,1,32767);
3:autonuv:=inputbooinfo ('Automated NUV','Auto-Delete/Auto-Validate in NUV',autonuv,1);
4:valnu:=inputintinfo ('NUV Yes Votes','# of Votes for a user to be Validated in NUV',strr(valnu),2,1,25);
5:delnu:=inputintinfo ('NUV No Votes','# of Votes for a user to be Deleted in NUV',strr(delnu),2,1,25);
6:volvl:=inputintinfo ('NUV Main Level','Level user gets when Validated in NUV',strr(volvl),5,1,32767);
7:voflvl:=inputintinfo ('NUV File Level','File Level user gets when Validated in NUV',strr(voflvl),5,1,32767);
8:vofps:=inputintinfo ('NUV File Points','File Points user gets when Validated in NUV',strr(vofps),5,0,32767);
9:begin writeconfig; b:=true; end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;
procedure filesect;
var i,ii,page:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=907;
TEMP_SCR : array [1..907] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,'█','█','█',#17,#25,#3 ,#16,#26,#16,'█',#17,
' ',#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,
' ',' ',#16,'█','█','█',#11,#17,'A','u','t','o','-','V','a','l','i',
'd','a','t','e',' ','U','p','l','o','a','d','s',' ',#1 ,#16,'█','█',
#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█',
'█','█',#11,#17,'P','o','i','n','t',' ','V','a','l','u','e',#25,#10,
#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,
#16,'█','█',#17,' ',' ',#11,'U','p','l','o','a','d',' ','f','a','c',
't','o','r',#25,#9 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,
#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
'█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'A','u','t',
'o','-','C','o','m','m','e','n','t',' ','U','p','l','o','a','d','s',
' ',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','S','Z',' ','L','o',
'g',' ','F','i','l','e',' ','N','a','m','e',#25,#4 ,#1 ,#16,'█','█',
#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,
'█','█',#17,' ',' ',#11,'S','i','l','e','n','c','e',' ','J','m','o',
'd','e','m',#25,#7 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',
#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'U','p','l',
'o','a','d',' ','T','i','m','e',' ','%',#25,#8 ,#1 ,#16,'█','█',#17,
' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
#17,'E','n','d',' ','o','f',' ','D','o','w','n','l','o','a','d',' ',
'T','e','x','t',' ',' ',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','C','R',' ','R',
'a','t','i','o','/','X','f','e','r',#25,#7 ,#1 ,#16,'█','█',#17,' ',
' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,
'U','/','L',' ','D','/','L',' ','R','a','t','i','o','/','X','f','e',
'r',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
'█',#17,' ',#16,'█','█','█',#17,' ',#11,'N','e','x','t',' ','P','a',
'g','e',#25,#7 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'E','x','i','t',' ',
'a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',
' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,
#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O',
'▓',#24,#26,'O','▓',#24);
{ TheDraw Pascal Crunched Screen Image }
const
TEMP2_SCR_WIDTH=80;
TEMP2_SCR_DEPTH=23;
TEMP2_SCR_LENGTH=698;
TEMP2_SCR : array [1..698] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
'█','█',#17,' ',' ',#16,'█','█','█',#17,#25,#3 ,#16,#26,#16,'█',#17,
' ',#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,
' ',' ',#16,'█','█','█',#11,#17,'P','C','R',' ','R','a','t','i','o',
'/','G','-','F','i','l','e','s',#25,#4 ,#1 ,#16,'█','█',#17,#25,#2 ,
#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
#17,'U','/','L',' ','D','/','L',' ','R','a','t','i','o','/','G','-',
'F','i','l','e','s',' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'A','l','l','o',
'w',' ','F','i','l','e',' ','P','t','.',' ','L','o','a','n',#25,#3 ,
#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',
#17,' ',#16,'█','█',#17,' ',' ',#11,'L','e','v','e','l',' ','t','o',
' ','t','a','k','e',' ','L','o','a','n',#25,#3 ,#1 ,#16,'█','█',#17,
' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
#3 ,'█',#11,#17,'M','a','x',' ','F','i','l','e',' ','P','t','.',' ',
'L','o','a','n',#25,#4 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'L',
'e','e','c','h',' ','W','e','e','k',#25,#11,#1 ,#16,'█','█',#17,' ',
' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,
'█',#11,#17,'P','r','e','v','i','o','u','s',' ','P','a','g','e',#25,
#8 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,
' ',#16,'█','█','█',#17,' ',#11,'E','x','i','t',' ','a','n','d',' ',
'S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,
'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O',
'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',
#24);
procedure writecurrentplace (i:integer);
begin
if page=1 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Auto-Validate Uploads ');
writestuff (boostr(autovalidate));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Point Value ');
writestuff (strr(pointvalue));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Upload factor ');
writestuff (strr(uploadfactor));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Auto-Comment Uploads ');
writestuff (boostr(zipcomment));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» DSZ Log File Name ');
writestuff (dszlogname);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Silence Jmodem ');
writestuff (boostr(jshutup));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Upload Time % ');
writestuff (strr(ultimefactor));
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» End of Download Text ');
writestuff (asciidownload);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» PCR Ratio/Xfer ');
writestuff (strr(xferpcr));
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» U/L D/L Ratio/Xfer ');
writestuff (strr(udratio));
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Next Page ');
writeblank;
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end else if page=2 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» PCR Ratio/G-Files ');
writestuff (strr(gfpcr));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» U/L D/L Ratio/G-Files ');
writestuff (strr(gfratio));
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Allow File Pt. Loan ');
writestuff (boostr(allowloan));
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Level to take Loan ');
writestuff (strr(lvltoloan));
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Max File Pt. Loan ');
writestuff (strr(maxloan));
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Leech Week ');
writestuff (boostr(leechweek));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Previous Page ');
writeblank;
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
page:=1;
b:=false;
repeat
if page=1 then
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
else if page=2 then
UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if page=1 then begin
if i=1 then i:=13;
end else if page=2 then begin if i=1 then i:=9; end;
i:=i-1;
end;
#80:begin
if page=1 then begin
if i=12 then i:=0;
end else if page=2 then begin if i=8 then i:=0; end;
i:=i+1;
end;
#13:begin
if page=1 then begin
case i of
1:autovalidate:=inputbooinfo ('Auto-Validate Uploads','Auto-Validate Uploads by Point Value',
autovalidate,1);
2:pointvalue:=inputintinfo ('Point Value','When a file is validated every xxx k gets 1 point',
strr(pointvalue),5,0,32767);
3:uploadfactor:=inputintinfo
('Upload factor','When you rate a file, the uploader will get (this number * rating)',strr(uploadfactor),
5,1,32767);
4:zipcomment:=inputbooinfo ('Auto-Comment Uploads','Comment all .ZIP uploads',zipcomment,1);
5:dszlogname:=inputinfo ('DSZ Log File Name','Log file to use for DSZ',dszlogname,64);
6:jshutup:=inputbooinfo ('Silence Jmodem','Shut Jmodem sound up',jshutup,1);
7:ultimefactor:=inputintinfo ('Upload Time %','When a user uploads, they get this % of the u/l time',
strr(ultimefactor),4,1,1000);
8:asciidownload:=inputinfo ('End of Download Text','Text sent at the end of an ASCII or G-File d/l',
asciidownload,64);
9:xferpcr:=inputintinfo ('PCR Ratio/Xfer','Posts-per-call required to use the xfer section',
strr(xferpcr),3,1,200);
10:udratio:=inputintinfo
('U/L D/L Ratio/Xfer','The users # of u/ls divided by d/ls has to be greater than this',
strr(udratio),3,1,100);
11:begin page:=page+1; i:=1; end;
12:begin writeconfig; b:=true; end;
end;
end else if page=2 then begin
case i of
1:gfpcr:=inputintinfo ('PCR Ratio/G-Files','Posts-per-call required to use the g-files section',
strr(gfpcr),3,1,200);
2:gfratio:=inputintinfo
('U/L D/L Ratio/G-Files','Upload/Download ratio for the G-Files section',strr(gfratio),3,1,100);
3:allowloan:=inputbooinfo ('Allow File Pt. Loan','If yes, you can loan points to users',allowloan,1);
4:lvltoloan:=inputintinfo ('Level to take Loan','If user has this level then he/she can get a pt. loan',
strr(lvltoloan),5,1,32767);
5:maxloan:=inputintinfo ('Max File Pt. Loan','Maximum # of pts. to loan',strr(maxloan),5,1,32767);
6:leechweek:=inputbooinfo ('Leech Week','If yes, all files will be free',leechweek,1);
7:begin page:=page-1; i:=1; end;
8:begin writeconfig; b:=true; end;
end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;
procedure strings;
var i,ii:integer;
page:integer;
c:char;
s:screens;
b:boolean;
{ TheDraw Pascal Crunched Screen Image }
const
TEMP_SCR_WIDTH=80;
TEMP_SCR_DEPTH=23;
TEMP_SCR_LENGTH=763;
TEMP_SCR : array [1..763] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█',
'█',' ',' ',#26,#23,'█',' ','█','█',#25,#2 ,'█','█','█',' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
'█','█',' ',' ',#11,'N','e','w',' ','U','s','e','r',' ','N','o','t',
'e',#25,#9 ,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',
#11,'A','v','a','i','l','a','b','l','e',' ','S','t','r','i','n','g',
#25,#6 ,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',' ','█',' ','█','█',' ','█',
#11,'N','o','t',' ','A','v','a','i','l','a','b','l','e',' ','S','t',
'r','i','n','g',#25,#2 ,#1 ,'█',' ',' ','█','█',' ','█',' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',
#26,#3 ,'█',#11,'C','h','a','t',' ','E','n','t','e','r',' ','P','h',
'r','a','s','e',#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,
#3 ,'█',#11,'C','h','a','t',' ','E','x','i','t',' ','P','h','r','a',
's','e',' ',#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,
'█',#11,'I','n','p','u','t',' ','T','i','m','e',' ','O','u','t',#25,
#2 ,#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,
'H','i','d','d','e','n','-','I','n','p','u','t',' ','C','h','a','r',
#25,#3 ,#1 ,'█','█','█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',
#11,'U','s','e',' ','L','o','g','o','n',' ','C','l','i','c','h','e',
' ',#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,
'"','C','l','i','c','h','e','"',#25,#8 ,#1 ,#26,#6 ,'█',' ',' ',#26,
#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'A','n','o','n','y','m','o','u',
's',' ','S','t','r','i','n','g',' ',' ',#1 ,#26,#5 ,'█',' ',' ',#26,
#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'N','e','x','t',' ','P','a','g',
'e',#25,#8 ,#1 ,#26,#5 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,
'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█','█',' ',' ',
'█','█','█',#11,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',
#25,#3 ,#1 ,#26,#6 ,'█',#25,#2 ,'█','█','█',' ',#11,#16,#26,#19,'▓',
#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#27,'█',
' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,
'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
{ TheDraw Pascal Crunched Screen Image }
const
TEMP2_SCR_WIDTH=80;
TEMP2_SCR_DEPTH=23;
TEMP2_SCR_LENGTH=835;
TEMP2_SCR : array [1..835] of Char = (
#11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
#17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
#15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█',
'█',' ',' ',#26,#23,'█',' ','█','█',#25,#2 ,'█','█','█',' ',#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
'█','█',' ',' ',#11,'G','a','t','e','w','a','y',' ','T','y','p','e',
#25,#10,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',#11,
'G','a','t','e','w','a','y',' ','P','r','o','m','p','t',#25,#8 ,#1 ,
'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',#11,'G','a','t',
'e','w','a','y',' ','S','y','s','t','e','m',' ','1',' ','C','o','m',
'm','.',' ',#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,
#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',
#11,'G','a','t','e','w','a','y',' ','S','y','s','t','e','m',' ','2',
' ','C','o','m','m','.',' ',#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,
#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
'█','█',' ',' ',#11,'G','a','t','e','w','a','y',' ','S','y','s','t',
'e','m',' ','3',' ','C','o','m','m','.',' ',#1 ,'█',' ',' ','█','█',
#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e','w','a','y',' ','N',
'e','w',' ','U','s','e','r',' ','C','o','m','m','.',#1 ,'█','█',' ',
' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e','w','a',
'y',' ','V','e','r','i','f','y',' ','C','o','m','m','.',#1 ,#26,#3 ,
'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e',
'w','a','y',' ','F','e','e','d','b','a','c','k',' ','C','o','m','m',
'.',#1 ,'█','█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,
#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G',
'a','t','e','w','a','y',' ','P','a','g','e',' ','C','o','m','m','.',
#25,#7 ,#1 ,#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e',
'w','a','y',' ','L','o','g','o','f','f',' ','C','o','m','m','.',#25,
#5 ,#1 ,#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
'▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e','w',
'a','y',' ','A','N','S','I',' ','C','o','m','m','.',#25,#3 ,#1 ,'█',
'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'P','r','e','v',
'i','o','u','s',' ','P','a','g','e',#25,#4 ,#1 ,#26,#5 ,'█',' ',' ',
#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
' ',' ',#1 ,'█','█','█',' ',' ','█','█','█',#11,'E','x','i','t',' ',
'a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#26,#6 ,'█',#25,#2 ,'█',
'█','█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
#1 ,#26,#3 ,'█',' ',#26,#27,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,
#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O',
'▓',#24);
procedure writecurrentplace (i:integer);
begin
if page=1 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» New User Note ');
writestuff (newusernote);
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Available String ');
writestuff (availstr);
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Not Available String ');
writestuff (notavailstr);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Chat Enter Phrase ');
writestuff (appear);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Chat Exit Phrase ');
writestuff (disappear);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Input Time Out ');
writestuff (strr(mintimeout));
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Hidden-Input Char ');
writestuff (dotchar);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Use Logon Cliche ');
writestuff (boostr(usecliche));
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» "Cliche ');
writestuff (cliche);
end;
if i=10 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Anonymous String ');
writestuff (anonymousstr);
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Next Page ');
writeblank;
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end else if page=2 then begin
if i=1 then begin
gotoxy (28,8); textcolor (15); textbackground (7); write ('» Gateway Type ');
writestuff (strr(matrixtype));
end;
if i=2 then begin
gotoxy (28,9); textcolor (15); textbackground (7); write ('» Gateway Prompt ');
writestuff (mprompt);
end;
if i=3 then begin
gotoxy (28,10); textcolor (15); textbackground (7); write ('» Gateway System 1 Comm. ');
writestuff (syst1);
end;
if i=4 then begin
gotoxy (28,11); textcolor (15); textbackground (7); write ('» Gateway System 2 Comm. ');
writestuff (syst2);
end;
if i=5 then begin
gotoxy (28,12); textcolor (15); textbackground (7); write ('» Gateway System 3 Comm. ');
writestuff (syst3);
end;
if i=6 then begin
gotoxy (28,13); textcolor (15); textbackground (7); write ('» Gateway New User Comm. ');
writestuff (mnew);
end;
if i=7 then begin
gotoxy (28,14); textcolor (15); textbackground (7); write ('» Gateway Verify Comm. ');
writestuff (mcheck);
end;
if i=8 then begin
gotoxy (28,15); textcolor (15); textbackground (7); write ('» Gateway Feedback Comm. ');
writestuff (mfback);
end;
if i=9 then begin
gotoxy (28,16); textcolor (15); textbackground (7); write ('» Gateway Page Comm. ');
writestuff (mchat);
end;
if i=11 then begin
gotoxy (28,17); textcolor (15); textbackground (7); write ('» Gateway Logoff Comm. ');
writestuff (mlogoff);
end;
if i=11 then begin
gotoxy (28,18); textcolor (15); textbackground (7); write ('» Gateway ANSI Comm. ');
writestuff (mansi);
end;
if i=12 then begin
gotoxy (28,19); textcolor (15); textbackground (7); write ('» Previous Page ');
writeblank;
end;
if i=13 then begin
gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save ');
writeblank;
end;
end;
textcolor (15);
textbackground (0);
end;
begin
readscr (s);
i:=1;
b:=false;
page:=1;
repeat
if page=1 then
UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
else if page=2 then
UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
writecurrentplace (i);
c:=upcase(readkey);
case c of
#72:begin
if page=1 then begin
if i=1 then i:=13;
end else if page=2 then begin if i=1 then i:=14; end;
i:=i-1;
end;
#80:begin
if page=1 then begin
if i=12 then i:=0;
end else if page=2 then begin if i=13 then i:=0; end;
i:=i+1;
end;
#13:begin
if page=1 then begin
case i of
1:newusernote:=inputinfo ('New User Note','Note to give to New Users',newusernote,30);
2:availstr:=inputinfo ('Available String','String to show when you are available to chat',availstr,64);
3:notavailstr:=inputinfo ('Not Available String','String to show when you are not available to chat',notavailstr,64);
4:appear:=inputinfo ('Chat Enter Phrase','The phrase to show when you enter the chat',appear,64);
5:disappear:=inputinfo ('Chat Exit Phrase','The phrase to show when you exit the chat',disappear,64);
6:mintimeout:=inputintinfo ('Input Time Out','# of minutes of silence from remote user until the system hangs up',
strr(mintimeout),2,2,60);
7:dotchar:=inputcharinfo ('Hidden-Input Character','Character to echo when user is entering a password',dotchar,1);
8:usecliche:=inputbooinfo ('Use Logon Cliche','Show a "cliche" at the logon',usecliche,1);
9:cliche:=inputinfo ('"Cliche"','This "cliche" will be printed out at the logon',cliche,64);
10:anonymousstr:=inputinfo ('Anonymous String','The string for an anonymous post',anonymousstr,30);
11:begin page:=page+1; i:=1; end;
12:begin writeconfig; b:=true; end;
end;
end else begin
case i of
1:matrixtype:=inputintinfo ('Gateway Type','0:None 1:Normal Gateway 2:DOS Gateway '+
+'3:Pull-Down Gateway',strr(matrixtype),1,0,3);
2:mprompt:=inputinfo ('Gateway Prompt','Prompt to show at Gateway #1',mprompt,64);
3:syst1:=inputinfo ('Gateway System 1 Comm.','Command to access System 1 at Gateway #1',syst1,15);
4:syst2:=inputinfo ('Gateway System 2 Comm.','Command to access System 2 at Gateway #1',syst2,15);
5:syst3:=inputinfo ('Gateway System 3 Comm.','Command to access System 3 at Gateway #1',syst3,15);
6:mnew:=inputinfo ('Gateway New User Comm.','Command to apply at Gateway #1',mnew,15);
7:mcheck:=inputinfo ('Gateway Verify Comm.','Command to verify access at Gateway #1',mcheck,15);
8:mfback:=inputinfo ('Gateway Feedback Comm.','Command to send feedback to the sysop at Gateway #1',mfback,15);
9:mchat:=inputinfo ('Gateway Page Comm.','Command to page the sysop at Gateway #1',mchat,15);
10:mlogoff:=inputinfo ('Gateway Logoff Comm.','Command to logoff the BBS at Gateway #1',mlogoff,15);
11:mansi:=inputinfo ('Gateway ANSI Comm.','Command to toggle ANSI at Gateway #1',mansi,15);
12:begin page:=page-1; i:=1; end;
13:begin writeconfig; b:=true; end;
end;
end;
end;
end
until (c=#27) or (b=true);
writescr (s);
end;